home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / spectrum.sfx / multi sprite (.txt) < prev    next >
Commodore BASIC  |  1992-09-01  |  2KB  |  102 lines
  1. 1 DIM AZ(3):BK=0:AZ(1)=1:AZ(2)=2:AZ(3)=3
  2. 2 GOSUB 3000
  3. 3 PRINT"[147]PLEASE WAIT..."
  4. 4 X=0:U=1:W=53248:Y=1:WE=1050:
  5. 5 POKE53280,0:POKE53281,0
  6. 6 DIM C(300):DIMV(900):DIMPF(600):DIMRE(600):DIM G(75):DIMRY(600)
  7. 10 FOR DE=1064 TO 2023 STEP 40
  8. 12 FORTG=1TO12:DF=DF+1:C(DF)=DE+TG:NEXT:NEXT
  9. 14 FOR DE=55336 TO 56295 STEP 40
  10. 16 FORTG=1TO12:SF=SF+1:V(SF)=DE+TG:NEXT:NEXT
  11. 29 F=0
  12. 30 FOR TY=1TO64
  13. 31 RE(TY)=832+F
  14. 32 F=F+1
  15. 33 NEXT
  16. 40 FOR X=832TO832+63:POKEX,0:NEXT
  17. 50 PRINT"[147][154][213][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  18. 51 FOR DF=1TO21
  19. 52 PRINT"[194][144]            [154][194]"
  20. 53 NEXTDF
  21. 54 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  22. 55 P=1
  23. 90 FORDK=1TO252:POKEC(DK),BK:NEXT
  24. 95 U=AZ(1)
  25. 100 GET A$
  26. 101 POKEC(P),81:POKEV(P),U
  27. 102 POKEC(P),160:POKEV(P),LM
  28. 103 IF A$="I" THEN P=P-12
  29. 104 IF A$="M" THEN P=P+12
  30. 105 IF A$="K" THEN P=P+1
  31. 106 IF A$="J" THEN P=P-1
  32. 107 IF P>252 THEN P=252
  33. 108 IF A$=" " THEN 300
  34. 109 IF P<1 THEN P=1
  35. 126 IF A$="S" THEN 201
  36. 128 IF A$="X" THEN 2000
  37. 130 IF A$="[147]" THEN 400
  38. 131 LM=PEEK (V(P))
  39. 132 IF A$="U" THEN GOSUB900
  40. 133 IF A$="E" THEN U=0
  41. 134 IF A$="D" THEN U=1
  42. 135 IF A$="L" THEN 700
  43. 136 IF A$="1" THEN U=AZ(1)
  44. 137 IF A$="2" THEN U=AZ(2)
  45. 138 IF A$="3" THEN U=AZ(3)
  46. 139 IF A$="4" THEN U=BK
  47. 200 GOTO 100
  48. 201 INPUT"FILENAME";NM$
  49. 202 OPEN15,8,15,"S0:"+NM$
  50. 203 CLOSE 15
  51. 205 OPEN6,8,6,"0:"+NM$+",S,W"
  52. 206 FOR HJ=1TO504
  53. 207 YY=PEEK(V(HJ))
  54. 208 PRINT#6,YY
  55. 209 NEXT
  56. 210 CLOSE 6
  57. 211 RUN
  58. 300 POKEV(P),U
  59. 399 GOTO 131
  60. 400 FORT=1TO252:POKEV(T),0:NEXT:GOTO 100
  61. 700 INPUT"FILENAME";NM$
  62. 705 OPEN6,8,6,"0:"+NM$+",S,R"
  63. 706 FOR HJ=1TO252
  64. 707 INPUT#6,YY
  65. 708 POKEV(HJ),YY
  66. 709 NEXT
  67. 710 CLOSE 6
  68. 711 GOTO 100
  69. 900 FOR GJ=1TO252:RY(GJ)=PEEK(V(GJ)):NEXT
  70. 930 R=0:FORHK=1TO252STEP4:R=R+1:G(R)=0
  71. 1000 IFRY(HK+0)=1THEN G(R)=G(R)+128
  72. 1001 IFRY(HK+0)=2THEN G(R)=G(R)+64
  73. 1002 IFRY(HK+0)=3THEN G(R)=G(R)+192
  74. 1003 IFRY(HK+1)=1THEN G(R)=G(R)+32
  75. 1004 IFRY(HK+1)=2THEN G(R)=G(R)+16
  76. 1005 IFRY(HK+1)=3THEN G(R)=G(R)+48
  77. 1006 IFRY(HK+2)=1THEN G(R)=G(R)+8
  78. 1007 IFRY(HK+2)=2THEN G(R)=G(R)+4
  79. 1008 IFRY(HK+2)=3THEN G(R)=G(R)+12
  80. 1009 IFRY(HK+3)=1THEN G(R)=G(R)+2
  81. 1010 IFRY(HK+3)=2THEN G(R)=G(R)+1
  82. 1011 IFRY(HK+3)=3THEN G(R)=G(R)+3
  83. 1012 NEXTHK:GOTO 1100
  84. 1013 FORTY=1TO63
  85. 1014 POKERE(TY),G(TY):NEXT:RETURN
  86. 1100 POKEW+21,1:POKE2040,13:POKEW+39,Y
  87. 1101 POKEW+16,1:POKEW,30:POKEW+1,100:POKEV+39,AZ(1):POKE53285,AZ(2)
  88. 1102 POKE53286,AZ(3):POKE53269,PEEK(53269)OR(2^0)
  89. 1103 POKE53276,PEEK(53276)OR(2^0)
  90. 1111 GOTO 1013
  91. 2000 GOSUB9000:POKE198,4
  92. 2010 PRINT"[147]LOAD"CHR$(34)"SPECTRUM V1.0";
  93. 2020 PRINTCHR$(34)",8";
  94. 2030 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  95. 2040 END
  96. 3000 POKE53280,0:POKE53281,0:PRINT"[147]"
  97. 3003 INPUT"COLOR #1(0-15)";AZ(1)
  98. 3004 INPUT"COLOR #2(0-15)";AZ(2)
  99. 3005 INPUT"COLOR #3(0-15)";AZ(3)
  100. 3006 RETURN
  101. 9000 FOR I=832TO894:POKEI,0:NEXT:RETURN
  102.